
      * VARIABLES USED FOR LOGGING RESULTS AS A REPLACEMENT
      * OF 'STRING' STATEMENTS
       01  STRING-TO-STRIP.
           05 STS               PIC X OCCURS 1024.
       01  STRIP-BEG            PIC S9(4) COMP.
       01  STRIP-END            PIC S9(4) COMP.
       01  STRIP-LENGTH         PIC S9(4) COMP.

       01  STRING-TO-BUILD.
           05 STB               PIC X OCCURS 1 TO 1024
                                DEPENDING ON STB-SO-FAR.
       01  STB-SO-FAR           PIC S9(4) COMP VALUE 0.
